#!/usr/bin/perl
# farsail_mgr --- Query or change configuration for farsail
# Author: Ye Wenbin <wenbinye@gmail.com>
# Created: 22 Nov 2008
# Version: 0.01

use warnings;
use strict;
use FindBin qw/$Bin/;
use lib "$Bin/lib", "$Bin/../lib";

use Farsail;
$ENV{FARSAILDIR} ||= "$Bin/../conf";

my $farsail = Farsail->instance;
$farsail->actions->use_namespace('manager');
$farsail->init();
if ( $farsail->args->fake ) {
    require Farsail::Mock;
    Farsail::Mock->import(qw/DBI open system/);
}

$farsail->dispatch();

# TODO: remove other action
